Przykad 8.7. Instrukcje systemu Maple dotyczce minimalizacji problemu przewozw 

 with(simplex);

 Constraints := [
   # zachowanie jednostek w kadym wle
   e13+e14   = 300,  # CHI
   e23+e24   = 300,  # DC

   e13+e23   = 300,  # HOU
   e14+e24   = 300,  # BOS

   # maksymalny przepyw w poszczeglnych krawdziach
   0 <= e13, e13 <= 200,
   0 <= e14, e14 <= 200,
   0 <= e23, e23 <= 280,
   0 <= e24, e24 <= 350
];

Cost := 7*e13 + 6*e14 + 4*e23 + 6*e24;

# Rozpocznij programowanie liniowe w celu rozwizania problemu
minimize (Cost, Constraints, NONNEGATIVE);
